VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior = 0   'vbNone
  MTSTransactionMode = 0   'NotAnMTSObject
End
Attribute VB_Name = "iFastField"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit
'This is the class interface with your control.
'Each procedure is supposed to be an empty shell here.
'The corresponding reference to these shell procedures
'will be inserted in your control code after [Step 2]

Public Property Let Enabled(ByVal New_Enabled As Boolean)
  'nothing
End Property

Public Property Get Enabled() As Boolean
  'nothing
End Property

Public Property Let ForceCase(ByVal New_Case As vForceCase)
  'nothing
End Property

Public Property Get ForceCase() As vForceCase
  'nothing
End Property

Public Property Let ForceNumeric(ByVal Force As Boolean)
  'nothing
End Property

Public Property Get ForceNumeric() As Boolean
  'nothing
End Property

Public Property Let ForceString(ByVal New_String As String)
  'nothing
End Property

Public Property Get ForceString() As String
  'nothing
End Property

Public Property Get hWnd() As Long
  'nothing
End Property

Public Property Let Locked(ByVal New_Locked As Boolean)
  'nothing
End Property

Public Property Get Locked() As Boolean
  'nothing
End Property

Public Property Let SelLength(ByVal New_SelLength As Long)
  'nothing
End Property

Public Property Get SelLength() As Long
  'nothing
End Property

Public Property Let SelStart(ByVal New_SelStart As Long)
  'nothing
End Property

Public Property Get SelStart() As Long
  'nothing
End Property

Public Property Let SelText(ByVal New_SelText As String)
  'nothing
End Property

Public Property Get SelText() As String
  'nothing
End Property

Public Property Let Size(ByVal New_Size As Integer)
  'nothing
End Property

Public Property Get Size() As Integer
  'nothing
End Property

Public Property Let Text(ByVal New_text As String)
  'nothing
End Property

Public Property Get Text() As String
  'nothing
End Property
